Profile of (eval 304)[Sub/Quote.pm:3]

Filename	(eval 304)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 217 statements in 507µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
17	1	1	178µs	228µs	JSON::Schema::Modern::Document::_assert_errors
1	1	1	16µs	43µs	JSON::Schema::Modern::Document::BEGIN@7.155
1	1	1	7µs	22µs	Method::Generate::Accessor::_Generated::BEGIN@24.157
1	1	1	6µs	6µs	Method::Generate::Accessor::_Generated::BEGIN@12.156

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	2µs			my $default_for_errors = ${$_[1]->{"\$default_for_errors"}};
3	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4	1	1µs			my $isa_check_for_errors = ${$_[1]->{"\$isa_check_for_errors"}};
5	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
6					package JSON::Schema::Modern::Document;
7	2	66µs	2	70µs	# spent 43µs (16+27) within JSON::Schema::Modern::Document::BEGIN@7.155 which was called: # once (16µs+27µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 43µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7.155 # spent 27µs making 1 call to warnings::unimport
8					# spent 228µs (178+50) within JSON::Schema::Modern::Document::_assert_errors which was called 17 times, avg 13µs/call: # 17 times (178µs+50µs) by JSON::Schema::Modern::Document::has_errors at line 17 of (eval 303)[Sub/Quote.pm:3], avg 13µs/call sub _assert_errors {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 6µs within Method::Generate::Accessor::_Generated::BEGIN@12.156 which was called: # once (6µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	0s			$^H = 2018;
14	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	5µs			%^H = (
16					);
17	1	52µs	1	6µs	} # spent 6µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.156
18					# END quote_sub PRELUDE
19	17	53µs			do {
20					my $val = exists $_[0]->{"errors"} ?
21					$_[0]->{"errors"}
22	17	17µs			: do {
23	15	34µs	15	50µs	my $value = $default_for_errors->($_[0]); # spent 50µs making 15 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:110], avg 3µs/call
24	107	246µs	2	37µs	# spent 22µs (7+15) within Method::Generate::Accessor::_Generated::BEGIN@24.157 which was called: # once (7µs+15µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($value)) and do { my $ok = 1; for my $i (@{$value}) { ($ok = 0, last) unless (Scalar::Util::blessed($i) and $i->isa(q[JSON::Schema::Modern::Error])) }; $ok } }) or Type::Tiny::_failed_check($isa_check_for_errors, "ArrayRef[InstanceOf[\"JSON::Schema::Modern::Error\"]]", $value, "attribute_name","errors","attribute_step","isa check","mgaca","0","varname","\$self->{\"errors\"}"); $value }; # spent 22µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.157 # spent 15µs making 1 call to warnings::unimport
25	15	15µs			$_[0]->{"errors"} = $value
26					}
27					;
28	17	6µs			exists $_[0]->{"errors"}
29					or Carp::croak(q{Attempted to access '}."errors".q{' but it is not set});
30	17	1µs			$val;
31					}
32					}
33	1	1µs			$$_UNQUOTED = \&_assert_errors;
34					}
35	1	7µs			1;
36
37					;